home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
boosters.arc
/
XCOPYBLK.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-11-07
|
680b
|
36 lines
{$IBoDecl}
{$IPutStr}
{$ICopies}
{$IBoxul}
{$ICopyBlk}
{$ICblkHeap}
{$ISaves}
{$IRestores}
BEGIN
Mark ( HeapTop );
New ( page[1] );
ClrScr;
Boxul ( 1, 1, 18, 10, 1, Yellow );
CopyBlk ( 1, 1, 18, 10, 1, 12 );
SaveScreen ( page[1] );
read;
for i := 1 to 3 do
begin
CopyBlk ( 1, 1, 18, 10, 21+(i-1)*20, 1 );
CopyBlk ( 1, 1, 18, 10, 21+(i-1)*20, 12 );
end;
read;
ClrScr;
read;
for i := 1 to 3 do
begin
CblkHeap ( page[1], 1, 1, 18, 10, 21+(i-1)*20, 1 );
CblkHeap ( page[1], 1, 1, 18, 10, 21+(i-1)*20, 12 );
end;
RestoreScreen ( page[1] );
Release ( HeapTop );
END.